home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / CURSOFF.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-14  |  430b  |  20 lines
  1. {<<<< CursorOff >>>>}
  2. { From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
  3. { Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
  4. { Described in section 18.4   --   Last mod 7/14/88  }
  5. { HIGHLY specific to the IBM PC }
  6.  
  7. PROCEDURE CursorOff;
  8.  
  9. VAR
  10.   Regs : Registers;
  11.  
  12. BEGIN
  13.   WITH Regs DO
  14.     BEGIN
  15.       AX := $0100;
  16.       CX := $2000;   { Set CH bit 5 hi to suppress cursor }
  17.     END;
  18.   INTR(16,Regs);
  19. END;
  20.